﻿Imports DTO
Imports DAL

Public Class TipoProdutoBLL

#Region "Métodos"

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Sub Incluir(tipoProduto As TipoProdutoDTO)
        Dim dalTipoProduto As New TipoProdutoDAL
        Dim dtoTipoProduto As New TipoProdutoDTO
        Try
            dtoTipoProduto = dalTipoProduto.Consultar(tipoProduto.pNome)
            If IsNothing(dtoTipoProduto) Then
                dalTipoProduto.Incluir(tipoProduto)
            End If

        Catch ex As Exception
            Throw ex
        End Try

    End Sub

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="tipoProduto"></param>
    ''' <remarks></remarks>
    Sub Alterar(tipoProduto As TipoProdutoDTO)
        Dim dalTipoProduto As New TipoProdutoDAL

        Try
            dalTipoProduto.Alterar(tipoProduto)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="codigo"></param>
    ''' <remarks></remarks>
    Sub Excluir(codigo As Integer)
        Dim dalTipoProduto As New TipoProdutoDAL
        Try
            dalTipoProduto.Excluir(codigo)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="codigo"></param>
    ''' <remarks></remarks>
    Function Consultar(codigo As Integer) As TipoProdutoDTO
        Dim dalTipoProduto As New TipoProdutoDAL
        Dim dtoTipoProduto As New TipoProdutoDTO
        Try
            dtoTipoProduto = dalTipoProduto.Consultar(codigo)

            Return dtoTipoProduto
        Catch ex As Exception
            Throw ex
        End Try
        dtoTipoProduto = Nothing
        Return dtoTipoProduto
    End Function

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Function Listar() As List(Of TipoProdutoDTO)
        Dim dtoTipoProduto As List(Of TipoProdutoDTO)
        Dim dalTipoProduto As New TipoProdutoDAL

        Try

            dtoTipoProduto = dalTipoProduto.Listar()
            Return dtoTipoProduto
        Catch ex As Exception
            Throw ex
        End Try
    End Function

#End Region

End Class
